inherited fmRequest_ServicesType: TfmRequest_ServicesType
  Left = 1235
  Top = 136
  Width = 535
  Height = 533
  Caption = #1042#1099#1073#1086#1088' '#1091#1089#1083#1091#1075#1080
  Constraints.MinHeight = 533
  Constraints.MinWidth = 517
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 468
    Width = 519
  end
  inherited Panel1: TPanel
    Width = 519
    inherited BitBtn1: TBitBtn
      Left = 353
    end
    inherited BitBtn2: TBitBtn
      Left = 441
    end
  end
  object cbPodr: TcxComboBox [2]
    Left = 94
    Top = 90
    ParentFont = False
    Properties.Items.Strings = (
      #1044#1077#1090#1089#1072#1076
      #1053#1072#1095'. '#1075#1080#1084#1085#1072#1079#1080#1103
      #1057#1088#1077#1076#1085#1103#1103' '#1096#1082#1086#1083#1072
      #1057#1090#1072#1088#1096#1072#1103' '#1096#1082#1086#1083#1072
      #1051#1072#1075#1077#1088#1100)
    Properties.OnChange = cbPodrPropertiesChange
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clWindowText
    Style.Font.Height = -16
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.IsFontAssigned = True
    TabOrder = 2
    Text = #1044#1077#1090#1089#1072#1076
    Width = 139
  end
  object cxRadioGroup1: TcxRadioGroup [3]
    Left = 11
    Top = 125
    Properties.Columns = 4
    Properties.Items = <
      item
        Caption = #1056#1072#1079#1086#1074#1072#1103
        Value = 0
      end
      item
        Caption = #1054#1089#1085#1086#1074#1085#1072#1103
        Value = 1
      end
      item
        Caption = #1044#1086#1087#1086#1083#1085#1080#1090#1077#1083#1100#1085#1072#1103
        Value = 2
      end
      item
        Caption = #1042#1089#1090#1091#1087#1080#1090'. '#1074#1079#1085#1086#1089
        Value = '3'
      end>
    Properties.OnChange = cbPodrPropertiesChange
    ItemIndex = 0
    Style.Edges = []
    Style.Shadow = False
    TabOrder = 3
    Height = 38
    Width = 494
  end
  object cxCheckBox1: TcxCheckBox [4]
    Left = 336
    Top = 88
    Caption = #1040#1088#1093#1080#1074#1085#1099#1077
    ParentFont = False
    Properties.OnChange = cbPodrPropertiesChange
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clWindowText
    Style.Font.Height = -16
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.IsFontAssigned = True
    TabOrder = 4
    Visible = False
    Width = 121
  end
  object deRDBEGIN: TcxDBDateEdit [5]
    Left = 16
    Top = 337
    DataBinding.DataField = 'RDBEGIN'
    DataBinding.DataSource = dlgDS
    ParentFont = False
    Properties.ReadOnly = False
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clWindowText
    Style.Font.Height = -16
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = [fsBold]
    Style.IsFontAssigned = True
    TabOrder = 5
    Width = 121
  end
  object deRDEND: TcxDBDateEdit [6]
    Left = 152
    Top = 337
    DataBinding.DataField = 'RDEND'
    DataBinding.DataSource = dlgDS
    ParentFont = False
    Properties.ReadOnly = False
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clWindowText
    Style.Font.Height = -16
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = [fsBold]
    Style.IsFontAssigned = True
    TabOrder = 6
    Width = 121
  end
  object eRDCOUNT: TcxDBTextEdit [7]
    Left = 432
    Top = 337
    DataBinding.DataField = 'RDCOUNT'
    DataBinding.DataSource = dlgDS
    ParentFont = False
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clWindowText
    Style.Font.Height = -16
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.IsFontAssigned = True
    TabOrder = 7
    Width = 57
  end
  object cxLabel1: TcxLabel [8]
    Left = 448
    Top = 315
    Caption = #1050#1086#1083#1080#1095'.'
    ParentFont = False
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clGray
    Style.Font.Height = -11
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.IsFontAssigned = True
  end
  object cxLabel2: TcxLabel [9]
    Left = 16
    Top = 315
    Caption = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072
    ParentFont = False
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clGray
    Style.Font.Height = -11
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.IsFontAssigned = True
  end
  object cxLabel3: TcxLabel [10]
    Left = 152
    Top = 315
    Caption = #1044#1072#1090#1072' '#1086#1082#1086#1085#1095'. '
    ParentFont = False
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clGray
    Style.Font.Height = -11
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.IsFontAssigned = True
  end
  object cxDBLookupComboBox1: TcxDBLookupComboBox [11]
    Left = 18
    Top = 173
    DataBinding.DataField = 'STID'
    DataBinding.DataSource = dlgDS
    ParentFont = False
    Properties.DropDownListStyle = lsFixedList
    Properties.DropDownRows = 20
    Properties.KeyFieldNames = 'STID'
    Properties.ListColumns = <
      item
        Caption = #1059#1089#1083#1091#1075#1072
        MinWidth = 390
        Width = 390
        FieldName = 'STNAME'
      end
      item
        Caption = #1058#1072#1088#1080#1092
        MinWidth = 70
        Width = 70
        FieldName = 'STTARIF'
      end>
    Properties.ListSource = dsServType
    Properties.MaxLength = 0
    Properties.OnCloseUp = cxDBLookupComboBox1PropertiesCloseUp
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clBlack
    Style.Font.Height = -13
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.IsFontAssigned = True
    TabOrder = 11
    Width = 479
  end
  object ccbTrimestr: TcxCheckComboBox [12]
    Left = 16
    Top = 232
    Enabled = False
    ParentFont = False
    Properties.Items = <
      item
        Description = '1-'#1081' '#1090#1088#1080#1084#1077#1089#1090#1088
      end
      item
        Description = '2-'#1081' '#1090#1088#1080#1084#1077#1089#1090#1088
      end
      item
        Description = '3-'#1081' '#1090#1088#1080#1084#1077#1089#1090#1088
      end
      item
        Description = '4-'#1081' '#1090#1088#1080#1084#1077#1089#1090#1088
      end>
    Properties.OnCloseUp = ccbTrimestrPropertiesCloseUp
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clWindowText
    Style.Font.Height = -13
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.IsFontAssigned = True
    TabOrder = 12
    Width = 481
  end
  object ccbMonth: TcxCheckComboBox [13]
    Left = 16
    Top = 280
    Enabled = False
    ParentFont = False
    Properties.DropDownRows = 12
    Properties.Items = <
      item
        Description = #1057#1077#1085#1090#1103#1073#1088#1100
      end
      item
        Description = #1054#1082#1090#1103#1073#1088#1100
      end
      item
        Description = #1053#1086#1103#1073#1088#1100
      end
      item
        Description = #1044#1077#1082#1072#1073#1088#1100
      end
      item
        Description = #1071#1085#1074#1072#1088#1100
      end
      item
        Description = #1060#1077#1074#1088#1072#1083#1100
      end
      item
        Description = #1052#1072#1088#1090
      end
      item
        Description = #1040#1087#1088#1077#1083#1100
      end
      item
        Description = #1052#1072#1081
      end
      item
        Description = #1048#1102#1085#1100
      end
      item
        Description = #1048#1102#1083#1100
      end
      item
        Description = #1040#1074#1075#1091#1089#1090
      end>
    Properties.OnCloseUp = ccbMonthPropertiesCloseUp
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clWindowText
    Style.Font.Height = -13
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.IsFontAssigned = True
    TabOrder = 13
    Width = 481
  end
  object cxLabel4: TcxLabel [14]
    Left = 16
    Top = 207
    Caption = #1042#1099#1073#1086#1088' '#1090#1088#1080#1084#1077#1089#1090#1088#1072
    ParentFont = False
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clGray
    Style.Font.Height = -13
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.IsFontAssigned = True
  end
  object cxLabel5: TcxLabel [15]
    Left = 16
    Top = 258
    Caption = #1042#1099#1073#1086#1088' '#1084#1077#1089#1103#1094#1072
    ParentFont = False
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clGray
    Style.Font.Height = -13
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.IsFontAssigned = True
  end
  object cxDBMemo1: TcxDBMemo [16]
    Left = 16
    Top = 400
    DataBinding.DataField = 'RDNOTE'
    DataBinding.DataSource = dlgDS
    ParentFont = False
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clWindowText
    Style.Font.Height = -15
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.IsFontAssigned = True
    TabOrder = 16
    Height = 65
    Width = 481
  end
  object cxLabel6: TcxLabel [17]
    Left = 16
    Top = 376
    Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
    ParentFont = False
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clGray
    Style.Font.Height = -11
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = []
    Style.IsFontAssigned = True
  end
  object lOsnPodr: TcxLabel [18]
    Left = 16
    Top = 56
    Caption = 'lOsnPodr'
    ParentFont = False
    Style.Font.Charset = DEFAULT_CHARSET
    Style.Font.Color = clGreen
    Style.Font.Height = -16
    Style.Font.Name = 'Tahoma'
    Style.Font.Style = [fsBold]
    Style.IsFontAssigned = True
  end
  object qServType: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      'SELECT ST.*, SD.SDNAME'
      'FROM SERVICES_TYPE ST'
      'INNER JOIN SYS_DIC Sd ON SD.SDID = ST.STEDIZMER'
      'WHERE  ST.STISDELETE IS NULL'
      '    AND ST.STTYPE = :STTYPE'
      '    AND ST.STPODR LIKE :PODR'
      '    AND ST.STISARCHIVE = :arch'
      'ORDER BY 2')
    GeneratorField.Field = 'STID'
    Left = 456
    Top = 232
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'STTYPE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'PODR'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'arch'
        ParamType = ptUnknown
      end>
    object qServTypeSTID: TIntegerField
      FieldName = 'STID'
      Origin = '"SERVICES_TYPE"."STID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qServTypeSTNAME: TIBStringField
      DisplayLabel = #1059#1089#1083#1091#1075#1072
      FieldName = 'STNAME'
      Origin = '"SERVICES_TYPE"."STNAME"'
      Size = 255
    end
    object qServTypeSTDESCR: TIBStringField
      DisplayLabel = #1054#1087#1080#1089#1072#1085#1080#1077
      FieldName = 'STDESCR'
      Origin = '"SERVICES_TYPE"."STDESCR"'
      Size = 2048
    end
    object qServTypeSTTARIF: TIBBCDField
      DisplayLabel = #1058#1072#1088#1080#1092
      FieldName = 'STTARIF'
      Origin = '"SERVICES_TYPE"."STTARIF"'
      Required = True
      DisplayFormat = '#,###0'
      Precision = 18
      Size = 2
    end
    object qServTypeSTDATEBEGIN: TDateField
      DisplayLabel = #1044#1072#1090#1072' '#1085#1072#1095#1072#1083#1072
      FieldName = 'STDATEBEGIN'
      Origin = '"SERVICES_TYPE"."STDATEBEGIN"'
    end
    object qServTypeSTDATEEND: TDateField
      DisplayLabel = #1044#1072#1090#1072' '#1079#1072#1074#1077#1088#1096
      FieldName = 'STDATEEND'
      Origin = '"SERVICES_TYPE"."STDATEEND"'
    end
    object qServTypeSTNOTE: TIBStringField
      DisplayLabel = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081
      FieldName = 'STNOTE'
      Origin = '"SERVICES_TYPE"."STNOTE"'
      Size = 255
    end
    object qServTypeSTTIMEENTER: TDateTimeField
      FieldName = 'STTIMEENTER'
      Origin = '"SERVICES_TYPE"."STTIMEENTER"'
    end
    object qServTypeSTTIMEEDIT: TDateTimeField
      FieldName = 'STTIMEEDIT'
      Origin = '"SERVICES_TYPE"."STTIMEEDIT"'
    end
    object qServTypeSTISDELETE: TIntegerField
      FieldName = 'STISDELETE'
      Origin = '"SERVICES_TYPE"."STISDELETE"'
      Visible = False
    end
    object qServTypeSTUSERENTER: TIBStringField
      FieldName = 'STUSERENTER'
      Origin = '"SERVICES_TYPE"."STUSERENTER"'
      Size = 40
    end
    object qServTypeSTUSEREDIT: TIBStringField
      FieldName = 'STUSEREDIT'
      Origin = '"SERVICES_TYPE"."STUSEREDIT"'
      Size = 40
    end
    object qServTypeSTTYPE: TIntegerField
      FieldName = 'STTYPE'
      Origin = '"SERVICES_TYPE"."STTYPE"'
    end
    object qServTypeSTEDIZMER: TIntegerField
      FieldName = 'STEDIZMER'
      Origin = '"SERVICES_TYPE"."STEDIZMER"'
    end
    object qServTypeSDNAME: TIBStringField
      FieldName = 'SDNAME'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
    object qServTypeSTTIME: TTimeField
      FieldName = 'STTIME'
      Origin = '"SERVICES_TYPE"."STTIME"'
    end
    object qServTypeSTPODRTYPE: TIntegerField
      FieldName = 'STPODRTYPE'
      Origin = '"SERVICES_TYPE"."STPODRTYPE"'
    end
    object qServTypeSTISARCHIVE: TIntegerField
      FieldName = 'STISARCHIVE'
      Origin = '"SERVICES_TYPE"."STISARCHIVE"'
    end
    object qServTypeSTPODR: TIBStringField
      FieldName = 'STPODR'
      Origin = '"SERVICES_TYPE"."STPODR"'
    end
    object qServTypeSTPERIODOPLATY: TIntegerField
      FieldName = 'STPERIODOPLATY'
      Origin = '"SERVICES_TYPE"."STPERIODOPLATY"'
    end
    object qServTypeSTSYSPODR: TIntegerField
      FieldName = 'STSYSPODR'
      Origin = '"SERVICES_TYPE"."STSYSPODR"'
    end
    object qServTypeSTISCALCGRAF: TIntegerField
      FieldName = 'STISCALCGRAF'
      Origin = '"SERVICES_TYPE"."STISCALCGRAF"'
    end
    object qServTypeSDID: TIntegerField
      FieldName = 'SDID'
      Origin = '"SERVICES_TYPE"."SDID"'
    end
    object intgrfldServTypeSTSDIDDOPUSL: TIntegerField
      FieldName = 'STSDIDDOPUSL'
      Origin = '"SERVICES_TYPE"."STSDIDDOPUSL"'
    end
  end
  object dsServType: TDataSource
    DataSet = qServType
    Left = 424
    Top = 232
  end
  object qCheckDopUsl: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      '    SELECT SC.SCID'
      '    FROM SERVICES S'
      '    INNER JOIN SERVICES_TYPE ST ON ST.STID = S.STID'
      '    INNER JOIN SPEC_COND SC ON SC.SCID = S.SCID'
      '    INNER JOIN AGREEMENTS A ON a.AGID = SC.AGID'
      '    INNER JOIN AGR_POLUCH_USLUG APU ON APU.AGID = A.AGID'
      '    WHERE APU.PID = :pid'
      '    AND sc.scisdelete IS NULL'
      '    AND a.agisdelete IS NULL'
      '    AND ST.SDID = :sdid')
    Left = 328
    Top = 328
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'pid'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'sdid'
        ParamType = ptUnknown
      end>
  end
  object qCheckKolRU: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      '    SELECT SUM(S.SCOUNT) as kol'
      '    FROM SERVICES S'
      '    INNER JOIN SERVICES_TYPE ST ON ST.STID = S.STID'
      '    INNER JOIN SPEC_COND SC ON SC.SCID = S.SCID'
      '    INNER JOIN AGREEMENTS A ON a.AGID = SC.AGID'
      '    INNER JOIN AGR_POLUCH_USLUG APU ON APU.AGID = A.AGID'
      '    WHERE APU.PID = :pid'
      '    AND sc.scisdelete IS NULL'
      '    AND a.agisdelete IS NULL'
      
        '    AND ST.STTYPE = 0 AND ST.STID = :stid AND ST.STSDIDDOPUSL IS' +
        ' NOT NULL'
      
        '    AND SC.SCDATEBEGIN BETWEEN IIF(CAST(:date_begin AS DATE) < (' +
        #39'01.09.'#39'|| EXTRACT(YEAR FROM CAST(:date_begin AS DATE))),'
      '     '#39'01.09.'#39'||(EXTRACT(YEAR FROM CAST(:date_begin AS DATE))-1),'
      '     '#39'01.09.'#39'||EXTRACT(YEAR FROM CAST(:date_begin AS DATE))) AND'
      
        '     IIF(CAST(:date_begin AS DATE) > ('#39'31.08.'#39'|| EXTRACT(YEAR FR' +
        'OM CAST(:date_begin AS DATE))),'
      '     '#39'31.08.'#39'||(EXTRACT(YEAR FROM CAST(:date_begin AS DATE))+1),'
      '     '#39'31.08.'#39'||EXTRACT(YEAR FROM CAST(:date_begin AS DATE)))')
    Left = 368
    Top = 328
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'pid'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'stid'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'date_begin'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'date_begin'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'date_begin'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'date_begin'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'date_begin'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'date_begin'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'date_begin'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'date_begin'
        ParamType = ptUnknown
      end>
    object qCheckKolRUKOL: TLargeintField
      FieldName = 'KOL'
      ProviderFlags = []
    end
  end
end
